open Castling;;

module CharPG = ParserGenerator (CharToken);;
open CharPG;;

let rec test = lazy !! (
	element '(' >> position_with sec >> element ')'
) and sec = lazy !! (
	element 'a' >> element 'b'
);;

debug := true;;
runtime_debug := true;;
ranged_position := true;;
generate test;;
